Imports Microsoft.VisualBasic
Imports System.Web.HttpContext

''' <summary>
''' Determines the current view of the page e.g. Preview, Staged or Live
''' </summary>
''' <remarks></remarks>
''' 

Public Class PageView

    Private _context As HttpContext
    Private _session As HttpSessionState

    Sub New()

        _context = HttpContext.Current
        _session = _context.Session

    End Sub

    Public Sub EndSession()

        _session.Abandon()

    End Sub

    Public Property UserName() As String
        Get

            Return _session("UserName")

        End Get
        Set(ByVal value As String)

            _session("UserName") = value

        End Set
    End Property

End Class
